کد Loading در استاتوس
<!----Www.Dlisladn.Com---> < language=VB> <!-- Dim Bar, Line, SP Bar = 0 Line = "|" sP = 200 Function Window_onLoad() Bar = 95 sP = 10 END Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = "Ljava.mihanblog.com => plz Wait 4 Load : " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "" Document.Body.Style.Display = "" End If End Function Call Count() --> </> <!----Www.Dlisladn.Com--->
کد Loading در استاتوسانتقال کاربر از یک سایت به سایت دیگر به صورت زمان دار